1) IMPJOE[SS,SYS] and 2) IMPJOE.NEW[SS,SYS]	5-26-83 14:16	pages 4,4

**** File 1) IMPJOE[SS,SYS]/4P/73L
1)		movei 1,3
1)		movem 1,nopcnt#
1)	noplop:	cono imp,strout!o32!odpien
1)		datao imp,[4B7]
1)		pushj p,fwait
1)		odone
1)		cono imp,fino
1)		pushj p,fwait
1)		odone
1)		sosle nopcnt
1)		jrst noplop
1)		setzm blkip#
1)	owd:	cono imp,strout!strin!i32!o32!clrst!clrwt!idpien!iepien!odpien
1)		cono imp,clrst!clrwt
1)		aos ntimes#
**** File 2) IMPJOE.NEW[SS,SYS]/4P/74L
2)		setzm blkip#
2)	owd:	cono imp,TEST!strout!strin!i32!o32!clrst!clrwt!idpien!iepien!odpien
2)		cono imp,TEST!clrst!clrwt
2)		aos ntimes#
***************


**** File 1) IMPJOE[SS,SYS]/4P/101L
1)		datao imp,[707777777777]
1)	owd2:	pushj p,fwait
**** File 2) IMPJOE.NEW[SS,SYS]/4P/88L
2)		datao imp,N1
2)	owd2:	pushj p,fwait
***************


**** File 1) IMPJOE[SS,SYS]/4P/110L
1)		datao imp,[070000000000]
1)	owd4:	pushj p,fwait
**** File 2) IMPJOE.NEW[SS,SYS]/4P/97L
2)		datao imp,N2
2)	owd4:	pushj p,fwait
***************


**** File 1) IMPJOE[SS,SYS]/4P/119L
1)	cno1:	cono imp,fino
1)	owd3:	pushj p,fwait
**** File 2) IMPJOE.NEW[SS,SYS]/4P/106L
2)	cno1:	cono imp,TEST!fino
2)	owd3:	pushj p,fwait
***************


**** File 1) IMPJOE[SS,SYS]/4P/146L
1)		move 1,leader
1)		came 1,[5B7!13B15]
1)		consz imp,test
1)		setom now
1)	inpc:	cono imp,strin!i32!o32!clrst!clrwt!idpien!iepien
1)		cono imp,clrst!clrwt
1)		popj p,
**** File 2) IMPJOE.NEW[SS,SYS]/4P/133L
2)		MOVE 1,MESSAG
2)		ANDCMI 1,17
2)		CAME 1,N1
2)		PUSHJ P,LOSE
2)		MOVE 1,MESSAG+1
2)		ANDCMI 1,17
2)		CAME 1,N2
2)		PUSHJ P,LOSE
2)	inpc:	cono imp,TEST!strin!i32!o32!clrst!clrwt!idpien!iepien
2)		cono imp,TEST!clrst!clrwt
2)		popj p,
***************


**** File 1) IMPJOE[SS,SYS]/5P/1L
1)	illans:	pushj p,rdlf
**** File 2) IMPJOE.NEW[SS,SYS]/4P/149L
2)	LOSE:	aos loscnt#
2)		popj p,
2)	N1:	-20
2)	N2:	0
2)	illans:	pushj p,rdlf
***************